﻿Imports JuegosLanBackend

Public Class insertarEvento

    Private Sub insertarEvento_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aceptar.Click, aceptarbtn.Click

        'Ingresar los datos a la base de datos
        Dim x = Me.TextBox1.Text

        Dim y = Me.TextBox2.Text

        Dim z = Me.TextBox3.Text
        Dim u = Me.TextBox4.Text
        Dim w = Me.TextBox5.Text()
        Dim m = Me.TextBox6.Text
        Dim c = Me.TextBox7.Text
        Dim n = New EventoNegocio

        n.insertarEvento(x, y, z, u, w, m, c)

        MsgBox("Evento registrado!!!!")

        'Limpiar cajitas de texto desues de ingresar datoo
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
        Me.Visible = False
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class